﻿Imports ImobWeb.Dominio
Imports ImobWeb.Dal

Public Class PessoaNegoc
    Implements IPessoaNegoc

#Region "Classes Injetadas"

    Private _pessoaDao As IPessoaDao
    Public Property PessoaDao() As IPessoaDao
        Get
            Return _pessoaDao
        End Get
        Set(ByVal value As IPessoaDao)
            _pessoaDao = value
        End Set
    End Property

#End Region

    Public Function Buscar(ByVal _id As Long) As Pessoa Implements IPessoaNegoc.Buscar
        Return Me.PessoaDao.Buscar(_id)
    End Function

    Public Sub Salvar(ByVal _pessoa As Pessoa) Implements IPessoaNegoc.Salvar
        Me.PessoaDao.Salvar(_pessoa)
    End Sub

End Class